home *** CD-ROM | disk | FTP | other *** search
/ Acorn User: China / Acorn User China CD-ROM (UK) (Disc A) / Acorn User China CD-ROM (UK) (Disc A).bin / HENSA / MISC / SYSBEEP.ARC / !SysBeep_!Run < prev    next >
Encoding:
Text File  |  1992-11-26  |  2.2 KB  |  76 lines
  1. | !SysBeep !Run file.
  2. |  by P.R.Banks.
  3. | created 01/09/1991 
  4. |
  5.  
  6. IconSprites <Obey$Dir>.!Sprites
  7. Set Alias$@RunType_108 *Run <Obey$Dir>.!Run %%*0
  8. Set File$Type_108 DataVox
  9. Set SysBeep$Dir <Obey$Dir>
  10.  
  11. |
  12. | This variable should point to your favourite default file
  13. |  which will be loaded at startup if this is the first time
  14. |  SysBeep has been run.
  15. |
  16.  
  17. If "<SysBeep$Default>"=""  Then Set SysBeep$Default "<Obey$Dir>.Default"
  18. If "<SysBeep$Channel>"=""  Then SetEval SysBeep$Channel  1
  19. If "<SysBeep$Channel2>"="" Then SetEval SysBeep$Channel2 0
  20.  
  21. |
  22. | This variable determines if a 3d icon look is used.
  23. |  Valid settings are TRUE and FALSE. However any setting other than TRUE
  24. |  will default to FALSE.
  25. |
  26.  
  27. If "<SysBeep$ThreeDee>"="" Then Set SysBeep$ThreeDee TRUE
  28.  
  29. |
  30. | Check to see that a System and DataSuite applications have been
  31. |  seen.
  32. |
  33.  
  34.  
  35. If "<DataSuite$Path>"="" Then Error 256 I need a Datasuite application with DataVox & DataLoad to work.
  36.  
  37. |
  38. | Now verify that the right kind of modules are loaded.
  39. |
  40.  
  41.  
  42. RMEnsure DataVox 3.56 RMLoad DataSuite:DataVox
  43. RMEnsure DataVox 3.56 Error 0 "I need DataVox v3.56 or later.|M"
  44. RMEnsure DataLoad 2.23 RMLoad DataSuite:DataLoad
  45. RMEnsure DataLoad 2.23 Error 0 "I need DataLoad v2.23 or later.|M"
  46.  
  47. |
  48. | This is to verify which version of the kernel is in use.
  49. |  Kernel v2.00 requires the IRQUtils module to patch a bug
  50. |  in its transient callback mechanism.
  51. |
  52.  
  53. SetEval SysBeep$Kernel200 0
  54. SetEval SysBeep$IRQUtilsNeeded 0
  55. RMEnsure UtilityModule 2.01 SetEval SysBeep$Kernel200 1
  56. If SysBeep$Kernel200 = 1 Then SetEval SysBeep$IRQUtilsNeeded 1
  57. Unset SysBeep$Kernel200
  58.  
  59. SetEval SysBeep$IRQPresent 1
  60. If (SysBeep$IRQUtilsNeeded = 1) Then RMEnsure IRQUtils 0.09 SetEval SysBeep$IRQPresent 0
  61. If ((SysBeep$IRQUtilsNeeded = 1) AND (("<System$Path>"="") AND (SysBeep$IRQPresent = 0))) Then Error 256 I need a System application with IRQUtils to work.
  62. If SysBeep$IRQUtilsNeeded = 1 Then RMEnsure IRQUtils 0.09 RMload System:Modules.IRQUtils
  63. If SysBeep$IRQUtilsNeeded = 1 Then RMEnsure IRQUtils 0.09 Error I require IRQUtils 0.09 or better!
  64.  
  65. Unset SysBeep$IRQPresent
  66. Unset SysBeep$IRQUtilsNeeded
  67.  
  68. |
  69. | Now lets run the program eh? :-)
  70. |
  71.  
  72. |WimpSlot -min 100K -max 100K
  73. WimpSlot -min 54K -max 54K
  74.  
  75. |Run <SysBeep$Dir>.UnCmpRnImg %*0
  76. Run <SysBeep$Dir>.!RunImage %*0